home *** CD-ROM | disk | FTP | other *** search
/ Design It! 3D (IDG) / Design It! 3D.iso / setup / dsnlocal.in_ / dsnlocal.bin
Encoding:
Text File  |  1995-07-06  |  16.0 KB  |  524 lines
  1. '----------------------------------------------------------------
  2. '- more specialized little functions to make our lives easier.
  3. '- John Alspaugh 10OCT94
  4. '- Copyright 1993-1995 Virtus Corporation.  All Rights Reserved.
  5. '-
  6. '- Note that this must be included after MSDETECT.INC and SETUPAPI.INC
  7. '-
  8. '----------------------------------------------------------------
  9. '-------------------------------------------------------------------
  10. '' VL_* functions are those with local variable references.
  11. '' V* functions can stand alone.
  12. '-------------------------------------------------------------------
  13.  
  14. '' define one of these:  PROGRAM or LIBRARY.  It defines the dialog
  15. '' IDs and stuff.
  16. '$DEFINE PROGRAM
  17.  
  18. '$ifdef PROGRAM
  19. '$DEFINE OPTION  ''if OPTION, then give the user the choice of a custom install.
  20. ''''$DEFINE SERIAL  ''no serial, no work.
  21. ''''$DEFINE CHATTER  '' turns on the little blurby messages during the install
  22. '''$ELSE IF LIBRARY
  23. '$endif 'PROGRAM
  24.  
  25. '*******************************************************************
  26. ' consts for dialogs
  27. CONST MODWININI_DLG        = 7600
  28.  
  29.  
  30. '*******************************************************************
  31. ' declare all the functions up front.
  32. DECLARE SUB VL_Initialize
  33.  
  34. DECLARE SUB VL_InitDiskCosts
  35. DECLARE SUB VL_RecalcOptFiles (ftype%)
  36. DECLARE FUNCTION VL_DoCheckItems(pItem$) AS INTEGER
  37. DECLARE FUNCTION VL_CalcDiskCost(pDrive$) AS LONG
  38. DECLARE SUB VL_SetupBillboards
  39.  
  40. DECLARE SUB VL_InitDirNames
  41. DECLARE SUB VL_RecalcPath
  42. DECLARE SUB VL_AddOptFilesToCopyList (ftype%)
  43. DECLARE SUB VL_DoTheInstall
  44. DECLARE SUB VL_MakeTheAppIcons
  45. DECLARE SUB VL_ShowIconsOkay
  46. DECLARE FUNCTION VL_ShouldWeSerialize AS INTEGER
  47.  
  48. DECLARE SUB VL_InitReadmeFileNames
  49. DECLARE SUB VL_MakeTheReadmeIcons
  50.  
  51.  
  52. '*******************************************************************
  53. ' these are the global variable things.  They get used in lots of
  54. ' areas
  55. '' there should be one I* const for each checkbox in dialog #6200
  56. CONST IAPPFILES     = 1
  57. CONST ILIBRARIES    = 2
  58. CONST IMODELS        = 3
  59. CONST N_CHECKBOXES  = 3 '' you get this from counting the number of
  60.                         '' checkboxes in dialog #6200
  61.  
  62. GLOBAL DESTDIRNAME$   '' the path of the destination directory
  63. GLOBAL PRODUCTNAME$     '' the real name of the product (like "Virtus VR")
  64. GLOBAL EXEFILENAME$     '' the name of the exe (like VIRTUSVR.EXE)
  65. GLOBAL PROGRAMGROUP$    '' name we want the group to have in the Program Manager
  66. GLOBAL DATAFILEEXT$     '' file extension for the models (VVR, WLK)
  67. GLOBAL INFFILENAME$        '' name of the INF file
  68. GLOBAL DEFDIRNAME$        '' default directory name
  69. GLOBAL THEINIFILE$        '' name of the ini file we associate our extension in
  70. GLOBAL BACKUPINIFILE$    '' name we back the ini file up to
  71.  
  72. GLOBAL WINDRIVE$        '' windows drive (the windows dir is here)
  73. GLOBAL WINDIR$
  74. GLOBAL DIALOGDLL$        '' where the dialogs come from
  75.  
  76. ''DECLARE SUB VL_Initialize
  77.  
  78. '-------------------------------------------------------------------
  79. ' inits the variables specific to this installer.
  80. SUB VL_Initialize STATIC
  81.  
  82.     WINDIR$ = GetWindowsDir()
  83.     WINDRIVE$ = ucase$(MID$(WINDIR$, 1, 1))
  84.  
  85.     '' REPLACE ME!
  86.     PRODUCTNAME$ = "Design It! 3-D"
  87.     EXEFILENAME$ = "DESIGNIT.EXE"
  88.     PROGRAMGROUP$ = "Design It! 3-D"
  89.     DATAFILEEXT$ = "VVR"
  90.     INFFILENAME$ = "DESIGNIT.INF"
  91.     DEFDIRNAME$ = "DESIGNIT"
  92.     BACKUPINIFILE$ = "winini.dsn"
  93.     '' REPLACE ME!
  94.     DESTDIRNAME$ = WINDRIVE$ + ":\" + DEFDIRNAME$
  95.     THEINIFILE$ = "win.ini"
  96.     DIALOGDLL$ = "mscuistf.dll"
  97.  
  98. END SUB
  99.  
  100.  
  101. '*******************************************************************
  102. ' Variable and functions for the disk cost stuff.  There is one
  103. ' variable for each section in the dialog #6200.  Also related are
  104. ' the I* constants in the previous section
  105. ''CustInst list symbol names
  106. GLOBAL APPNEEDS$    'Application items need this much disk space
  107. GLOBAL LIBRARYNEEDS$  'Gallery items need
  108. GLOBAL MODELNEEDS$ 'Scene items need this much disk space
  109. GLOBAL EXTRACOSTS$  'List of extra costs to add per drive. This is how much we're short.
  110.  
  111. ''DECLARE SUB VL_InitDiskCosts
  112. ''DECLARE SUB VL_RecalcOptFiles (ftype%)
  113. ''DECLARE FUNCTION VL_DoCheckItems(pItem$) AS INTEGER
  114. ''DECLARE FUNCTION VL_CalcDiskCost(pDrive$) AS LONG
  115.  
  116. '-------------------------------------------------------------------
  117. ' inits the variables specific to calculating the disk costs
  118. SUB VL_InitDiskCosts STATIC
  119.  
  120.     ''Disk cost list symbols
  121.     '' REPLACE ME!
  122.     APPNEEDS$   = "AppNeeds"
  123.     LIBRARYNEEDS$  = "LibraryNeeds"
  124.     MODELNEEDS$  = "ModelNeeds"
  125.     '' REPLACE ME!
  126.  
  127.     EXTRACOSTS$ = "ExtraCosts"
  128.     FOR i% = 1 TO 26 STEP 1
  129.         AddListItem APPNEEDS$, "0"
  130.         AddListItem LIBRARYNEEDS$, "0"
  131.         AddListItem MODELNEEDS$, "0"
  132.  
  133.         AddListItem EXTRACOSTS$, "0"
  134.     NEXT i%
  135. END SUB
  136.  
  137. '-------------------------------------------------------------------
  138. ' calculates disk cost
  139. SUB VL_RecalcOptFiles (ftype%) STATIC
  140.     CursorSave% = ShowWaitCursor()
  141.     ClearCopyList
  142.     VL_AddOptFilesToCopyList ftype%
  143.  
  144.     fExtra% = 0
  145.     ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
  146.  
  147.     IF ftype% = IAPPFILES THEN
  148. '$IFDEF PROGRAM
  149.         IF GetListItem(CHECKSTATES$, IAPPFILES) = "ON" THEN
  150.             ''Add extra cost to Windows drive for ini/progman, etc.
  151.             ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
  152.             fExtra% = 1
  153.         END IF
  154. '$ENDIF 'PROGRAM
  155.         ListSym$ = APPNEEDS$
  156.     ELSEIF ftype% = ILIBRARIES THEN
  157.         ListSym$ = LIBRARYNEEDS$
  158.     ELSEIF ftype% = IMODELS THEN
  159.         ListSym$ = MODELNEEDS$
  160.     ELSE
  161.         ListSym$ = ""
  162.     END IF
  163.  
  164.     StillNeed& = GetCopyListCost(EXTRACOSTS$, ListSym$, "")
  165.  
  166.     cost& = 0
  167.     FOR i% = 1 TO 26 STEP 1
  168.         cost&  = cost& + VAL(GetListItem(ListSym$, i%))
  169.     NEXT i%
  170.        ReplaceListItem STATUSTEXT$, ftype%, STR$(cost& / 1024) + " K"
  171.  
  172.     IF fExtra% THEN
  173.         ReplaceListItem EXTRACOSTS$, ndrive%, "0"
  174.     END IF
  175.     RestoreCursor CursorSave%
  176.     ListSym$ = ""
  177. END SUB
  178.  
  179.  
  180.  
  181. '-------------------------------------------------------------------
  182. ' handles the custom install (dialog #6200) checkboxes.  Order is
  183. ' set in the dialog itself.
  184. FUNCTION VL_DoCheckItems(pItem$) STATIC AS INTEGER
  185.     IF pItem$ = "CHK1" THEN
  186.         VL_RecalcOptFiles IAPPFILES
  187.         ok% = 1
  188.     ELSEIF pItem$ = "CHK2" THEN
  189.         VL_RecalcOptFiles ILIBRARIES
  190.         ok% = 1
  191.     ELSEIF pItem$ = "CHK3" THEN
  192.         VL_RecalcOptFiles IMODELS
  193.         ok% = 1
  194.     ELSE
  195.         ok% = 0
  196.     END IF
  197.  
  198.     VL_DoCheckItems = ok%
  199.  
  200. END FUNCTION
  201.  
  202.  
  203. '-------------------------------------------------------------------
  204. ' Calculates the cost of installing the items in the list by adding
  205. ' the cost associated with each of the items.
  206. FUNCTION VL_CalcDiskCost (pDrive$) STATIC AS LONG
  207. '$ifdef DEBUG
  208.     if pDrive$ = "" then
  209.         BadArgErr 1, "VL_CalcDiskCost", pDrive$
  210.     end if
  211. '$endif ''DEBUG
  212.     ndrive% = ASC(ucase$(pDrive$)) - ASC("A") + 1
  213.  
  214.     diskCost& = 0
  215.  
  216.     ''REPLACE ME BEGIN
  217.     diskCost& = diskCost& + VAL(GetListItem(APPNEEDS$, ndrive%))
  218.     diskCost& = diskCost& + VAL(GetListItem(LIBRARYNEEDS$, ndrive%))
  219.     diskCost& = diskCost& + VAL(GetListItem(MODELNEEDS$, ndrive%))
  220.     ''REPLACE ME END
  221.  
  222.     VL_CalcDiskCost = diskCost&
  223.  
  224. END FUNCTION
  225.  
  226.  
  227.  
  228. SUB VL_SetupBillboards STATIC
  229.  
  230.     ClearBillboardList
  231.  
  232.     AddToBillboardList DIALOGDLL$, 110, "FModelessDlgProc", 40
  233.     AddToBillboardList DIALOGDLL$, 111, "FModelessDlgProc", 40
  234.     AddToBillboardList DIALOGDLL$, 112, "FModelessDlgProc", 40
  235.     AddToBillboardList DIALOGDLL$, 115, "FModelessDlgProc", 10
  236.     AddToBillboardList DIALOGDLL$, 113, "FModelessDlgProc", 40
  237.     AddToBillboardList DIALOGDLL$, 114, "FModelessDlgProc", 40
  238.  
  239. END SUB
  240.  
  241.  
  242. '*******************************************************************
  243. ' Variable and functions to deal with the directory structure and to
  244. ' place items into the right directories
  245.  
  246. ' these are the names of subdirectories
  247. GLOBAL GALLERY2DirName$  ' name of the 2dgallery
  248. GLOBAL GALLERY3DirName$  ' name of the 3dgallery
  249. GLOBAL MODELSDirName$  ' name of the Models dir
  250. GLOBAL SCENESDirName$  ' name of the scenes dir
  251.  
  252.  
  253. ' vars for the full paths
  254. GLOBAL GALLERY2Dest$          ' 2GALLERY
  255. GLOBAL GALLERY3Dest$          ' 3GALLERY
  256. GLOBAL MODELSDest$          ' MODELS
  257. GLOBAL SCENESDest$          ' SCENES
  258.  
  259. ''DECLARE SUB VL_InitDirNames
  260. ''DECLARE SUB VL_RecalcPath 
  261. ''DECLARE SUB VL_AddOptFilesToCopyList (ftype%)
  262. ''DECLARE SUB VL_DoTheInstall
  263. ''DECLARE SUB VL_MakeTheAppIcons
  264. ''DECLARE SUB VL_ShowIconsOkay
  265.  
  266. '-------------------------------------------------------------------
  267. ' inits the variables for the directory management routines.
  268. SUB VL_InitDirNames STATIC
  269.  
  270. ''LOCALIZE ME BEGIN
  271. GALLERY2DirName$     = "\2GALLERY"
  272. GALLERY3DirName$     = "\3GALLERY"
  273. MODELSDirName$       = "\MODELS"
  274. SCENESDirName$       = "\SCENES"
  275. ''LOCALIZE ME END
  276.  
  277. END SUB
  278.  
  279. '-------------------------------------------------------------------
  280. ' inits the variables specific to this installer.
  281. SUB VL_RecalcPath STATIC
  282.  
  283.     CursorSave% = ShowWaitCursor()
  284.  
  285.     GALLERY2Dest$        = DESTDIRNAME$ + GALLERY2DirName$
  286.     GALLERY3Dest$        = DESTDIRNAME$ + GALLERY3DirName$
  287.     MODELSDest$            = DESTDIRNAME$ + MODELSDirName$
  288.     SCENESDest$            = DESTDIRNAME$ + SCENESDirName$
  289.  
  290.     VL_RecalcOptFiles IAPPFILES
  291.     VL_RecalcOptFiles ILIBRARIES
  292.     VL_RecalcOptFiles IMODELS
  293.  
  294.     RestoreCursor CursorSave%
  295. END SUB
  296.  
  297.  
  298. '-------------------------------------------------------------------
  299. ' inits the variables specific to this installer.
  300. SUB VL_AddOptFilesToCopyList (ftype%) STATIC
  301.  
  302.     IF GetListItem(CHECKSTATES$, ftype%) = "ON" THEN
  303.         SrcDir$ = GetSymbolValue("STF_SRCDIR")
  304.         IF ftype% = IAPPFILES THEN
  305.             AddSectionFilesToCopyList "AppFiles", SrcDir$, DESTDIRNAME$
  306.             AddSectionFilesToCopyList "AlwaysInstall", SrcDir$, DESTDIRNAME$
  307.         ELSEIF ftype% = ILIBRARIES THEN
  308.             AddSectionFilesToCopyList "2Gallery", SrcDir$, GALLERY2Dest$
  309.             AddSectionFilesToCopyList "3Gallery", SrcDir$, GALLERY3Dest$
  310.         ELSEIF ftype% = IMODELS THEN
  311.             AddSectionFilesToCopyList "Models", SrcDir$, MODELSDest$
  312.             AddSectionFilesToCopyList "Scenes", SrcDir$, SCENESDest$
  313.         END IF
  314.         SrcDir$ = ""
  315.     END IF
  316. END SUB
  317.  
  318.  
  319. SUB VL_DoTheInstall STATIC
  320.  
  321.     CursorSave% = ShowWaitCursor()
  322.  
  323.     ClearCopyList
  324.  
  325.     IF (RADIOBUTTON$ <> "3") THEN     '' CD_ROM install
  326.  
  327.     ''application
  328.     IF GetListItem(CHECKSTATES$, IAPPFILES) = "ON" THEN
  329.         CreateDir DESTDIRNAME$, cmoNone
  330.         VL_AddOptFilesToCopyList IAPPFILES
  331.  
  332.   ''        SetRestartDir WINDIR$    '' restart in
  333.     END IF
  334.  
  335.     '' 2D & 3D galleries
  336.     IF GetListItem(CHECKSTATES$, ILIBRARIES) = "ON" THEN
  337.         CreateDir GALLERY2Dest$, cmoNone
  338.         CreateDir GALLERY3Dest$, cmoNone
  339.         VL_AddOptFilesToCopyList ILIBRARIES
  340.     END IF
  341.  
  342.     '' VR scenes, models
  343.     IF GetListItem(CHECKSTATES$, IMODELS) = "ON" THEN
  344.         CreateDir MODELSDest$, cmoNone
  345.         CreateDir SCENESDest$, cmoNone
  346.         VL_AddOptFilesToCopyList IMODELS
  347.     END IF
  348.  
  349.     ELSE
  350.         SrcDir$ = GetSymbolValue("STF_SRCDIR")
  351.         CreateDir DESTDIRNAME$, cmoNone
  352.         AddSectionFilesToCopyList "AlwaysInstall", SrcDir$, DESTDIRNAME$
  353.     ENDIF
  354.  
  355.  '$IFDEF CHATTER
  356.     VL_SetupBillboards
  357. '$ENDIF '' CHATTER
  358.  
  359.     CopyFilesInCopyList
  360.  
  361.     RestoreCursor CursorSave%
  362.  
  363. END SUB
  364.  
  365.  
  366. SUB VL_MakeTheAppIcons STATIC
  367.  
  368.     
  369.     IF (GetListItem(CHECKSTATES$, IAPPFILES) = "ON") THEN
  370.  
  371. '$IFDEF PROGRAM
  372.         '' make backup for the win.ini file, tell user about it.
  373.         winOld$ = VMakePath(GetWindowsDir(), BACKUPINIFILE$)
  374.         sz$ = UIStartDlg("mscuistf.dll", MODWININI_DLG, "FInfo0DlgProc", 0, "")
  375.         CopyFile VMakePath(GetWindowsDir(), THEINIFILE$), winOld$, cmoOverwrite, 0
  376.  
  377.         UIPop 1
  378.  
  379.         ''Create the WalkThrough group
  380.         CreateProgmanGroup PROGRAMGROUP$, "", cmoNone
  381.  
  382.         IF GetListItem(CHECKSTATES$, IAPPFILES) = "ON" THEN
  383.             ''Associate .WTP and files with the application. This is writing stuff to WIN.INI.
  384.             CreateIniKeyValue THEINIFILE$,"Extensions",DATAFILEEXT$,VMakePath(DESTDIRNAME$, EXEFILENAME$)+" ^" + DATAFILEEXT$,cmoOverwrite
  385.             CreateProgmanItem PROGRAMGROUP$, PRODUCTNAME$, VMakePath(DESTDIRNAME$, EXEFILENAME$), "", cmoOverwrite
  386.         ENDIF
  387.  
  388.         '' if no WalkThrough, do the same with .wlk
  389.         IF VFindExeFromRegistration ("WLK", lDest$) = 0 THEN
  390.             CreateIniKeyValue THEINIFILE$,"Extensions","WLK",VMakePath(DESTDIRNAME$, EXEFILENAME$)+" ^" + "WLK",cmoNone
  391.         ENDIF
  392.  
  393.  
  394. '$ENDIF '' PROGRAM
  395.  
  396. '$IFDEF OPTION
  397.     ELSEIF (RADIOBUTTON$ = "3") THEN     '' CD_ROM install
  398.  
  399.          winOld$ = VMakePath(GetWindowsDir(), BACKUPINIFILE$)
  400.         sz$ = UIStartDlg("mscuistf.dll", MODWININI_DLG, "FInfo0DlgProc", 0, "")
  401.         CopyFile VMakePath(GetWindowsDir(), THEINIFILE$), winOld$, cmoOverwrite, 0
  402.  
  403.         UIPop 1
  404.  
  405.         ''Create the WalkThrough group
  406.         CreateProgmanGroup PROGRAMGROUP$, "", cmoNone
  407.  
  408.         SrcDir$ = GetSymbolValue("STF_SRCDIR")
  409.         '' strip off the directory we're in
  410.             lDrive$ = SrcDir$
  411.             StrLen% = LEN(lDrive$)
  412.  
  413.             '' Extract directory name (source)
  414.             WHILE (MID$(lDrive$, StrLen%, 1) <> "\") AND (StrLen% > 1)
  415.                 StrLen% = StrLen% - 1
  416.             WEND
  417.             StrLen% = StrLen% - 1
  418.             WHILE (MID$(lDrive$, StrLen%, 1) <> "\") AND (StrLen% > 1)
  419.                 StrLen% = StrLen% - 1
  420.             WEND
  421.             StrLen% = StrLen% - 1
  422.  
  423.             tempDir$ = MID$(lDrive$, 1, StrLen%)
  424.             SrcDir$ = VMakePath(tempDir$, DEFDIRNAME$)
  425.  
  426.         otherOpt$ = VMakePath(SrcDir$, EXEFILENAME$)+","+"0"+","+"0,0,"+DESTDIRNAME$
  427.  
  428.         ''Associate .VVR and files with the application. This is writing stuff to WIN.INI.
  429.         CreateIniKeyValue THEINIFILE$,"Extensions",DATAFILEEXT$,VMakePath(SrcDir$, EXEFILENAME$)+" ^" + DATAFILEEXT$,cmoOverwrite
  430.         CreateProgmanItem PROGRAMGROUP$, PRODUCTNAME$, VMakePath(SrcDir$, EXEFILENAME$), otherOpt$, cmoOverwrite
  431.  
  432.         '' if no WalkThrough, do the same with .wlk
  433.         IF VFindExeFromRegistration ("WLK", lDest$) = 0 THEN
  434.             CreateIniKeyValue THEINIFILE$,"Extensions","WLK",VMakePath(SrcDir$, EXEFILENAME$)+" ^" + "WLK",cmoNone
  435.         ENDIF
  436.  
  437. '$ENDIF ''OPTION
  438.  
  439.     END IF
  440.  
  441.  
  442.  
  443.  
  444. END SUB
  445.  
  446.  
  447. SUB VL_ShowIconsOkay STATIC
  448.     IF (GetListItem(CHECKSTATES$, IAPPFILES) = "ON") OR (RADIOBUTTON$ = "3") THEN
  449.          ShowProgmanGroup  PROGRAMGROUP$, 1, cmoNone
  450.  
  451. '$IFDEF 0
  452.         Restart% = RestartListEmpty()
  453.         IF Restart% = 0 THEN
  454.             Exe$ = WINDIR$ + "\_msrstrt.exe"
  455.             Batch$ = WINDIR$ + "\_mssetup.bat"
  456.             I% = ExitExecRestart ()
  457.             RemoveFile Exe$, cmoForce
  458.             RemoveFile Batch$, cmoForce
  459.         END IF
  460. '$ENDIF '' 0
  461.  
  462.     END IF
  463. END SUB
  464.  
  465.  
  466.  
  467.  
  468. '-------------------------------------------------------------------
  469. ' do we want to call the serial number stuff?
  470. FUNCTION VL_ShouldWeSerialize STATIC AS INTEGER
  471. '$IFDEF SERIAL
  472.     IF GetListItem(CHECKSTATES$, IAPPFILES) = "ON" THEN
  473.         VL_ShouldWeSerialize = 1
  474.     ELSE
  475.         VL_ShouldWeSerialize = 0
  476.     END IF
  477. '$ELSE
  478.     VL_ShouldWeSerialize = 0
  479. '$ENDIF '' SERIAL
  480. END FUNCTION
  481.  
  482. '*******************************************************************
  483. ' these are the global variable things.  They get used in lots of
  484. ' areas
  485. GLOBAL MAINREADME_FILENAME$ 'name of the main readme file
  486. GLOBAL MAINREADME_ICONNAME$ 'name for the windows icon of the main readme file
  487. ''GLOBAL SCENEREADME_FILENAME$ 'name of the scenes readme file
  488. ''GLOBAL SCENEREADME_ICONNAME$ ' name for the icon for the scenes readme file
  489. GLOBAL EXTRAREADME_FILENAME$ 'name of the scenes readme file
  490. GLOBAL EXTRAREADME_ICONNAME$ ' name for the icon for the scenes readme file
  491. ''GLOBAL OTHERREADME_FILENAME$ 'name of the scenes readme file
  492. ''GLOBAL OTHERREADME_ICONNAME$ ' name for the icon for the scenes readme file
  493.  
  494. ''DECLARE SUB VL_InitReadmeFileNames
  495. ''DECLARE SUB VL_MakeTheReadmeIcons
  496.  
  497. '-------------------------------------------------------------------
  498. ' init the readme file names
  499. SUB VL_InitReadmeFileNames STATIC
  500.  
  501.     MAINREADME_FILENAME$ = "Readme.txt"   '' name of main read me file
  502.     MAINREADME_ICONNAME$ = "Read Me"  '' icon title in windows
  503. ''    EXTRAREADME_FILENAME$ = "PLAYREAD.WRI"   '' name of extra read me file
  504. ''    EXTRAREADME_ICONNAME$ = "Player Notes" '' icon title
  505.  
  506. END SUB
  507.  
  508. '-------------------------------------------------------------------
  509. ' make icons for the readme files
  510. SUB VL_MakeTheReadmeIcons STATIC
  511.     ''Put icons for the sample scenes and the readmes into program manager.  Check that one of the files exists)
  512.     IF GetListItem(CHECKSTATES$, IAPPFILES) = "ON" THEN
  513.         ''Create the readme
  514.         CreateProgmanItem PROGRAMGROUP$, MAINREADME_ICONNAME$, VMakePath(DESTDIRNAME$, MAINREADME_FILENAME$), "", cmoOverwrite
  515.     ELSEIF (RADIOBUTTON$ = "3") THEN     '' CD_ROM install
  516.         CreateProgmanItem PROGRAMGROUP$, MAINREADME_ICONNAME$, VMakePath(DESTDIRNAME$, MAINREADME_FILENAME$), "", cmoOverwrite
  517.     END IF
  518.  
  519. END SUB
  520.  
  521.  
  522.  
  523.  
  524.